Kansallispuisto-rojekti :)

# Packages
pacman::p_load(tidyverse, sp, leaflet)

# Get data
data <- openxlsx::read.xlsx("data/parks.xlsx")

# Logos
logo_url <- list.files("logos", full.names = T)

# Split coordinate column
data <- data %>%
  tidyr::separate(Coordinates, c('Lat', 'Long'), sep = ", ") %>%
  mutate(
    Lat = as.numeric(Lat), Long = as.numeric(Long),
    Logo_url = logo_url
  )

Tilanne: 59 % puistoista käyty (24 / 41)!

Kartta

# Visited icons
visited <- data %>% filter(Visit == "Joo")
visited_icons <- icons(
  iconUrl = visited$Logo_url,
  iconWidth = 40, iconHeight = 30,
  iconAnchorX = 0, iconAnchorY = 0
)

# Not yet
notyet <- data %>% filter(Visit != "Joo")
notyet_icons <- icons(
  iconUrl = "help-circle.svg",
  iconWidth = 20, iconHeight = 20,
  iconAnchorX = 0, iconAnchorY = 0
)

# Plot
basemap <- data %>%
  leaflet() %>%
  addTiles() %>%
  addMarkers(
    data = visited, ~Long, ~Lat,
    label = paste0(visited$Park_short, "\n", visited$Dates),
    icon = visited_icons
  ) %>%
  addMarkers(
    data = notyet, ~Long, ~Lat,
    label = notyet$Park_short,
    icon = notyet_icons
  )

# Add gpx routes
for (i in 1:length(routes)) {
  basemap <- basemap %>%
    addPolylines(
      data = gpxdf %>% filter(route == i),
      lat = ~lat,
      lng = ~lon,
      color = "#CD2626",
      opacity = 0.8,
      weight = 3
    )
}
basemap

Käydyt puistot merkitty logolla ja käymättömät kysymysmerkillä.

Lähteet

Kartta on tehty käyttäen R-paketteja sp ja leaflet.

Koordinaatit osoitteesta: kartta.com/muut-kartat/suomen-kansallispuistot/.